home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 September
/
Chip_2002-09_cd1.bin
/
ctenari
/
Eisner
/
setup.exe
/
{app}
/
mobil.exe
/
0
/
RCDATA
/
TFZ
/
TFZ.txt
Wrap
Text File
|
2002-07-06
|
39KB
|
1,678 lines
object Fz: TFz
Left = 191
Top = 16
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsDialog
Caption = 'Nastaven� zvukov�ho v�stupu'
ClientHeight = 473
ClientWidth = 592
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object Bevel5: TBevel
Left = 7
Top = 10
Width = 582
Height = 152
Shape = bsFrame
end
object Bevel4: TBevel
Left = 57
Top = 25
Width = 526
Height = 131
end
object Label12: TLabel
Left = 11
Top = 21
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'V�ce'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 9
Top = 144
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'M�n�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 16
Top = 5
Width = 76
Height = 13
Alignment = taCenter
Caption = ' Pr�b�h sign�lu '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel2: TBevel
Left = 287
Top = 268
Width = 295
Height = 128
end
object Bevel1: TBevel
Left = 280
Top = 254
Width = 309
Height = 150
Shape = bsFrame
end
object Label6: TLabel
Left = 288
Top = 248
Width = 73
Height = 13
Caption = ' Pr�b�h ADSR '
end
object TBps: TTrackBar
Left = 17
Top = 33
Width = 25
Height = 113
LineSize = 5
Max = 19
Orientation = trVertical
PageSize = 10
Frequency = 2
Position = 14
SelEnd = 0
SelStart = 0
TabOrder = 0
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBpsChange
end
object PC1: TPageControl
Left = 6
Top = 165
Width = 583
Height = 304
ActivePage = TSzn
TabOrder = 1
OnChange = PC1Change
object TSzn: TTabSheet
Caption = 'Z�kladn� nastaven�'
object GroupBox2: TGroupBox
Left = 181
Top = 10
Width = 77
Height = 255
Caption = ' Hlasitost '
TabOrder = 0
object Label9: TLabel
Left = 3
Top = 15
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Lev�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 37
Top = 15
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Prav�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object RGts: TRadioGroup
Left = 5
Top = 10
Width = 88
Height = 118
Caption = ' Tvar sign�lu '
ItemIndex = 0
Items.Strings = (
'Sinusovka'
'Obd�ln�k'
'Troj�heln�k'
'Pila'
'�um')
TabOrder = 1
OnClick = RGtsClick
end
object TBl: TTrackBar
Left = 190
Top = 37
Width = 25
Height = 220
LineSize = 5
Max = 100
Orientation = trVertical
PageSize = 10
Frequency = 10
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 2
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBlChange
end
object TBp: TTrackBar
Left = 225
Top = 37
Width = 25
Height = 220
LineSize = 5
Max = 100
Orientation = trVertical
PageSize = 10
Frequency = 10
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 3
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBpChange
end
object Button6: TButton
Left = 13
Top = 223
Width = 70
Height = 25
Caption = 'P�ehr�t'
TabOrder = 4
OnClick = Button6Click
end
object Button9: TButton
Left = 13
Top = 247
Width = 70
Height = 25
Caption = 'Zastavit'
TabOrder = 5
OnClick = Button9Click
end
object ChBs: TCheckBox
Left = 105
Top = 245
Width = 49
Height = 17
Caption = 'Stereo'
Checked = True
State = cbChecked
TabOrder = 6
end
object RGk: TRadioGroup
Left = 96
Top = 10
Width = 82
Height = 70
Caption = ' Kvalita '
ItemIndex = 0
Items.Strings = (
'16 bit�'
' 8 bit�')
TabOrder = 7
end
object RGsr: TRadioGroup
Left = 96
Top = 87
Width = 82
Height = 70
Caption = ' Sample Rate '
ItemIndex = 0
Items.Strings = (
'96000'
'44100')
TabOrder = 8
end
object RGp: TRadioGroup
Left = 96
Top = 168
Width = 82
Height = 70
Caption = ' P�ahr�vat '
ItemIndex = 0
Items.Strings = (
'bez ADSR'
' s ADSR')
TabOrder = 9
end
object GBn: TGroupBox
Left = 5
Top = 131
Width = 88
Height = 40
Caption = 'Nota'
TabOrder = 10
object CBn: TComboBox
Left = 5
Top = 14
Width = 78
Height = 21
ItemHeight = 13
Items.Strings = (
'c1'
'cis1'
'd1'
'dis1'
'e1'
'f1'
'fis1'
'g1'
'gis1'
'a1'
'ais1'
'h1'
'c2'
'cis2'
'd2'
'dis2'
'e2'
'f2'
'fis2'
'g2'
'gis2'
'a2'
'ais2'
'h2'
'c3'
'cis3'
'd3'
'dis3'
'e3'
'f3'
'fis3'
'g3'
'gis3'
'a3'
'ais3'
'h3'
'c4'
'cis4'
'd4'
'dis4'
'e4'
'f4'
'fis4'
'g4'
'gis4')
TabOrder = 0
end
end
object GBd: TGroupBox
Left = 5
Top = 171
Width = 88
Height = 40
Caption = 'D�lka'
TabOrder = 11
object CBd: TComboBox
Left = 5
Top = 14
Width = 78
Height = 21
ItemHeight = 13
Items.Strings = (
'1/32'
'3/64'
'1/16'
'3/32'
'1/8'
'3/16'
'1/4'
'3/8'
'1/2'
'3/4'
'1/1'
'3/2'
'2/1'
'3/1')
TabOrder = 0
end
end
end
object TSam: TTabSheet
Caption = 'Amplitudov� modulace'
ImageIndex = 1
object Bevel14: TBevel
Left = 5
Top = 16
Width = 558
Height = 256
Shape = bsFrame
end
object Bevel6: TBevel
Left = 19
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Bevel7: TBevel
Left = 85
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Bevel8: TBevel
Left = 151
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Bevel9: TBevel
Left = 217
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Bevel10: TBevel
Left = 283
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Bevel11: TBevel
Left = 349
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Bevel12: TBevel
Left = 415
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Bevel13: TBevel
Left = 481
Top = 29
Width = 68
Height = 222
Shape = bsFrame
end
object Label15: TLabel
Left = 24
Top = 23
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 1 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 89
Top = 24
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 2 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 155
Top = 24
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 3 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 221
Top = 24
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 4 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 287
Top = 24
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 5 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 353
Top = 24
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 6 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 419
Top = 24
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 7 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 485
Top = 24
Width = 50
Height = 13
Alignment = taCenter
Caption = ' �rov�� 8 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 13
Top = 10
Width = 113
Height = 13
Alignment = taCenter
Caption = ' Amplitudov� modulace '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Panel6: TPanel
Left = 22
Top = 40
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object TBa1: TTrackBar
Left = 27
Top = 60
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 1
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel7: TPanel
Left = 54
Top = 40
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object TBb1: TTrackBar
Left = 58
Top = 60
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 45
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 3
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs1: TRadioGroup
Left = 24
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 4
OnClick = RGs1Click
end
object Panel8: TPanel
Left = 88
Top = 41
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object TBa2: TTrackBar
Left = 93
Top = 61
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 6
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel9: TPanel
Left = 120
Top = 41
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
object TBb2: TTrackBar
Left = 124
Top = 61
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 40
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 8
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs2: TRadioGroup
Left = 90
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 9
OnClick = RGs1Click
end
object Panel10: TPanel
Left = 154
Top = 41
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 10
end
object TBa3: TTrackBar
Left = 159
Top = 61
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 11
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel11: TPanel
Left = 186
Top = 41
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 12
end
object TBb3: TTrackBar
Left = 190
Top = 61
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 35
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 13
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs3: TRadioGroup
Left = 156
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 14
OnClick = RGs1Click
end
object Panel12: TPanel
Left = 220
Top = 41
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 15
end
object TBa4: TTrackBar
Left = 225
Top = 61
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 16
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel13: TPanel
Left = 252
Top = 41
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 17
end
object TBb4: TTrackBar
Left = 256
Top = 61
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 30
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 18
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs4: TRadioGroup
Left = 222
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 19
OnClick = RGs1Click
end
object Panel14: TPanel
Left = 286
Top = 41
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 20
end
object TBa5: TTrackBar
Left = 291
Top = 61
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 21
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel15: TPanel
Left = 318
Top = 41
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 22
end
object TBb5: TTrackBar
Left = 322
Top = 61
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 25
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 23
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs5: TRadioGroup
Left = 288
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 24
OnClick = RGs1Click
end
object Panel16: TPanel
Left = 352
Top = 41
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 25
end
object TBa6: TTrackBar
Left = 356
Top = 61
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 26
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel17: TPanel
Left = 384
Top = 41
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 27
end
object TBb6: TTrackBar
Left = 388
Top = 61
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 20
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 28
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs6: TRadioGroup
Left = 354
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 29
OnClick = RGs1Click
end
object Panel18: TPanel
Left = 418
Top = 41
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 30
end
object TBa7: TTrackBar
Left = 423
Top = 61
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 31
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel19: TPanel
Left = 450
Top = 41
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 32
end
object TBb7: TTrackBar
Left = 454
Top = 61
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 15
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 33
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs7: TRadioGroup
Left = 420
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 34
OnClick = RGs1Click
end
object Panel20: TPanel
Left = 484
Top = 41
Width = 29
Height = 20
Hint = 'Amplitude'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '0%'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 35
end
object TBa8: TTrackBar
Left = 489
Top = 61
Width = 25
Height = 89
Hint = 'Amplitude'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 50
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 36
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBa1Change
end
object Panel21: TPanel
Left = 516
Top = 41
Width = 29
Height = 20
Hint = 'Frequency'
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'x0.1'
Color = clWhite
ParentShowHint = False
ShowHint = True
TabOrder = 37
end
object TBb8: TTrackBar
Left = 520
Top = 61
Width = 25
Height = 89
Hint = 'Frequency'
LineSize = 5
Max = 50
Orientation = trVertical
ParentShowHint = False
PageSize = 10
Frequency = 5
Position = 10
SelEnd = 0
SelStart = 0
ShowHint = True
TabOrder = 38
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBb1Change
end
object RGs8: TRadioGroup
Left = 486
Top = 144
Width = 58
Height = 102
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Sin'
'Obd'
'Tro'
'Pil'
'�um')
ParentFont = False
TabOrder = 39
OnClick = RGs1Click
end
object RBa: TRadioButton
Left = 488
Top = 254
Width = 65
Height = 14
Caption = 'Absolute'
TabOrder = 40
OnClick = TBb1Change
end
object RBm: TRadioButton
Left = 424
Top = 254
Width = 58
Height = 14
Caption = 'Multiply'
Checked = True
TabOrder = 41
TabStop = True
OnClick = TBb1Change
end
object Button26: TButton
Left = 20
Top = 253
Width = 62
Height = 16
Caption = 'Reset'
TabOrder = 42
OnClick = Button26Click
end
object Button1: TButton
Left = 89
Top = 253
Width = 62
Height = 16
Caption = 'P�ehr�t'
TabOrder = 43
OnClick = Button6Click
end
end
object TSadsr: TTabSheet
Caption = 'ADSR'
ImageIndex = 2
object Bevel3: TBevel
Left = 10
Top = 15
Width = 247
Height = 250
Shape = bsFrame
end
object Label7: TLabel
Left = 17
Top = 24
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Attack'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 109
Top = 24
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Decay'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 154
Top = 24
Width = 36
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Sustain'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 200
Top = 24
Width = 38
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Release'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 22
Top = 10
Width = 51
Height = 13
Caption = ' Envelope '
end
object Label11: TLabel
Left = 63
Top = 24
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Hold'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object TBa: TTrackBar
Left = 23
Top = 61
Width = 25
Height = 196
LineSize = 5
Max = 100
Orientation = trVertical
PageSize = 10
Frequency = 10
Position = 90
SelEnd = 0
SelStart = 0
TabOrder = 0
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBaChange
end
object TBd: TTrackBar
Left = 117
Top = 61
Width = 25
Height = 196
LineSize = 5
Max = 100
Orientation = trVertical
PageSize = 10
Frequency = 10
Position = 80
SelEnd = 0
SelStart = 0
TabOrder = 1
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBaChange
end
object TBs: TTrackBar
Left = 163
Top = 61
Width = 25
Height = 196
LineSize = 5
Max = 100
Orientation = trVertical
PageSize = 10
Frequency = 10
Position = 50
SelEnd = 0
SelStart = 0
TabOrder = 2
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBaChange
end
object TBr: TTrackBar
Left = 210
Top = 61
Width = 25
Height = 188
LineSize = 5
Max = 100
Orientation = trVertical
PageSize = 10
Frequency = 10
Position = 90
SelEnd = 0
SelStart = 0
TabOrder = 3
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBaChange
end
object Panel1: TPanel
Left = 16
Top = 39
Width = 32
Height = 20
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '100%'
Color = clWhite
TabOrder = 4
end
object Panel2: TPanel
Left = 109
Top = 39
Width = 32
Height = 20
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '100%'
Color = clWhite
TabOrder = 5
end
object Panel3: TPanel
Left = 156
Top = 39
Width = 32
Height = 20
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '100%'
Color = clWhite
TabOrder = 6
end
object Panel4: TPanel
Left = 202
Top = 39
Width = 32
Height = 20
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '100%'
Color = clWhite
TabOrder = 7
end
object Panel5: TPanel
Left = 63
Top = 39
Width = 32
Height = 20
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = '100%'
Color = clWhite
TabOrder = 8
end
object TBh: TTrackBar
Left = 70
Top = 61
Width = 25
Height = 196
LineSize = 5
Max = 100
Orientation = trVertical
PageSize = 10
Frequency = 10
Position = 90
SelEnd = 0
SelStart = 0
TabOrder = 9
ThumbLength = 15
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBaChange
end
end
end
object ToneGen1: TToneGen
Frequency = 100
Hold = 10
Async = False
AMAmplitude = 30
AMWaveform = tgSine
AMFrequency = 0.300000011920929000
Left = 58
Top = 26
AMArrayData = {
070000001E000000000000009A99993E00000000000000000000C03F00000000
000000000000A04100000000000000000000A04100000000000000000000A041
00000000000000000000A04100000000000000000000A0410000000002000000
0000A041}
end
object WaveTTG: TToneGen
Frequency = 800
Duration = 50
Resolution = tg8Bit
Quality = tgLoQ
AMAmplitude = 30
AMWaveform = tgSquare
AMFrequency = 4.000000000000000000
Left = 86
Top = 26
AMArrayData = {
070000001E00000001000000000080400A000000010000000000003F00000000
040000000000C03F000000000000000000000040000000000000000000002040
0000000000000000000040400000000000000000000060400000000000000000
00008040}
end
end
